home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-0039 / source / dcconvrt.def < prev    next >
Text File  |  1997-04-16  |  4KB  |  84 lines
  1. DEFINITION MODULE DCConvrt;
  2.  
  3. (*---------------------------------------------------------------------*)
  4. (*   Picture Conversion Routines For DegasConvert                      *)
  5. (*                                                                     *)
  6. (*   The first version of this program was rather simple in the way it *)
  7. (*   allocated black and white patterns to the colours in the picture  *)
  8. (*   to be converted. Specifically, it just used the bits in the index *)
  9. (*   number of a pixel as the pattern to plot.( i.e. a dark colour may *)
  10. (*   come out light in the conversion ). A better way would be to look *)
  11. (*   at the colours in the palette and allocate a shade to it depending*)
  12. (*   on the intensity of the colour of the pixel. This is what is      *)
  13. (*   implemented in this version of the program.                       *)
  14. (*                                                                     *)
  15. (*   Some of the routines in this module will need access to the       *)
  16. (*   display module.                                                   *)
  17. (*                                                                     *)
  18. (*   Routines in this module:                                          *)
  19. (*      1) Given a Degas Picture, convert it to Hi-res giving the      *)
  20. (*         user some clues that we are making progress on it.          *)
  21. (*         ( will use appropriate routine depending on pic. res )      *)
  22. (*      2) Clear a picture                                             *)
  23. (*      3) Given a low rew pic, convert to hi-res.                     *)
  24. (*      4) Convert a med-res pic. to hi-res.                           *)
  25. (*                                                                     *)
  26. (*   Version 1.1      August 1987                    L.G.Miller        *)
  27. (*---------------------------------------------------------------------*)
  28.  
  29.  
  30. (*---------------------------------------------------------------------*)
  31. (*           version 1.00         April 1987      L.G. Miller.         *)
  32. (*                                                                     *)
  33. (*   Med-res conversion bug fixed May   1987      L.G. Miller          *)
  34. (*---------------------------------------------------------------------*)
  35.  
  36. FROM    DCGlobal                IMPORT DegasPicture,
  37.                                        HiResScreen,
  38.                                        MedResScreen,
  39.                                        PrintPalette,
  40.                                        Palette;
  41.  
  42.  
  43. (*----------------------------------------------------------------------*)
  44. (* Will use the appropriate routine depending on inpicture resolution   *)
  45. (*----------------------------------------------------------------------*)
  46. PROCEDURE ConvertDegasToHiRes ( VAR inpicture,
  47.                                     outpicture   : DegasPicture;
  48.                                 VAR printpalette : PrintPalette );
  49.  
  50.  
  51.  
  52. PROCEDURE ConvertMedDegasToHiRes ( VAR inpicture,
  53.                                        outpicture   : DegasPicture;
  54.                                    VAR printpalette : PrintPalette );
  55.  
  56.  
  57.  
  58. PROCEDURE ConvertLowDegasToHiRes ( VAR inpicture,
  59.                                        outpicture   : DegasPicture;
  60.                                    VAR printpalette : PrintPalette );
  61.  
  62.  
  63. PROCEDURE ClearPicture ( VAR picture : DegasPicture );
  64.  
  65.  
  66. (*----------------------------------------------------------------------*)
  67. (* Assign print bit patterns to a print palette for a low res picture   *)
  68. (*----------------------------------------------------------------------*)
  69. PROCEDURE SetLowResDefaultPrintPalette ( VAR picturepalette : Palette;
  70.                                          VAR ppalette : PrintPalette );
  71.  
  72.  
  73.  
  74. (*----------------------------------------------------------------------*)
  75. (* Assign print bit patterns to a print palette for a med res picture   *)
  76. (*----------------------------------------------------------------------*)
  77. PROCEDURE SetMedResDefaultPrintPalette ( VAR picturepalette : Palette;
  78.                                          VAR ppalette : PrintPalette );
  79.  
  80.  
  81.  
  82.  
  83. END DCConvrt.
  84.